function CCK_RM(Data_Summary)
%% get all basic info to put into a summary table ready
animalNames = {'CCK_F6_37'; 'CCK_F6_43'; 'CCK_F6_49'; 'CCK_F7_25'; 'CCK_F7_30'};
genotype = {'CCK-WT'; 'CCK-KO'; 'CCK-KO'; 'CCK-KO'; 'CCK-KO'};

%% collect saline data
[CCK37_saline_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'saline');
[CCK43_saline_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'saline');
[CCK49_saline_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'saline');
[CCK25_saline_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'saline');
[CCK30_saline_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'saline');

% concatenate results
saline = cat(1, CCK37_saline_M, CCK43_saline_M, CCK49_saline_M, CCK25_saline_M, CCK30_saline_M);

%% collect altered_contexts data
[CCK37_altered_contexts_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'altered contexts');
[CCK43_altered_contexts_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'altered contexts');
[CCK49_altered_contexts_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'altered contexts');
[CCK25_altered_contexts_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'altered contexts');
[CCK30_altered_contexts_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'altered contexts');

% concatenate results
altered_contexts = cat(1, CCK37_altered_contexts_M, CCK43_altered_contexts_M, CCK49_altered_contexts_M, CCK25_altered_contexts_M, CCK30_altered_contexts_M);

%% collect etom_4 data
[CCK37_etom_4_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'etomidate 4mg/kg');
[CCK43_etom_4_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'etomidate 4mg/kg');
[CCK49_etom_4_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'etomidate 4mg/kg');
[CCK25_etom_4_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'etomidate 4mg/kg');
[CCK30_etom_4_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'etomidate 4mg/kg');

% concatenate results
etom_4 = cat(1, CCK37_etom_4_M, CCK43_etom_4_M, CCK49_etom_4_M, CCK25_etom_4_M, CCK30_etom_4_M);

%% collect etom_7mg data
[CCK37_etom_7_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'etomidate 7mg/kg');
[CCK43_etom_7_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'etomidate 7mg/kg');
[CCK49_etom_7_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'etomidate 7mg/kg');
[CCK25_etom_7_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'etomidate 7mg/kg');
[CCK30_etom_7_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'etomidate 7mg/kg');

% concatenate results
etom_7 = cat(1, CCK37_etom_7_M, CCK43_etom_7_M, CCK49_etom_7_M, CCK25_etom_7_M, CCK30_etom_7_M);

%% collect midaz_025 data
[CCK37_midaz_025_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'midazolam 0.25mg/kg');
[CCK43_midaz_025_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'midazolam 0.25mg/kg');
[CCK49_midaz_025_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'midazolam 0.25mg/kg');
[CCK25_midaz_025_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'midazolam 0.25mg/kg');
[CCK30_midaz_025_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'midazolam 0.25mg/kg');

% concatenate results
midaz_025 = cat(1, CCK37_midaz_025_M, CCK43_midaz_025_M, CCK49_midaz_025_M, CCK25_midaz_025_M, CCK30_midaz_025_M);

%% collect midaz_075 data
[CCK37_midaz_075_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'midazolam 0.75mg/kg');
[CCK43_midaz_075_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'midazolam 0.75mg/kg');
[CCK49_midaz_075_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'midazolam 0.75mg/kg');
[CCK25_midaz_075_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'midazolam 0.75mg/kg');
[CCK30_midaz_075_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'midazolam 0.75mg/kg');

% concatenate results
midaz_075 = cat(1, CCK37_midaz_075_M, CCK43_midaz_075_M, CCK49_midaz_075_M, CCK25_midaz_075_M, CCK30_midaz_075_M);

%% collect midaz_125 data
[CCK37_midaz_125_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'midazolam 1.25mg/kg');
[CCK43_midaz_125_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'midazolam 1.25mg/kg');
[CCK49_midaz_125_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'midazolam 1.25mg/kg');
[CCK25_midaz_125_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'midazolam 1.25mg/kg');
[CCK30_midaz_125_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'midazolam 1.25mg/kg');

% concatenate results
midaz_125 = cat(1, CCK37_midaz_125_M, CCK43_midaz_125_M, CCK49_midaz_125_M, CCK25_midaz_125_M, CCK30_midaz_125_M);

%% collect KSEB_25 data
[CCK37_KSEB_25_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'KSEB 2.5mg/kg');
[CCK43_KSEB_25_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'KSEB 2.5mg/kg');
[CCK49_KSEB_25_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'KSEB 2.5mg/kg');
[CCK25_KSEB_25_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'KSEB 2.5mg/kg');
[CCK30_KSEB_25_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'KSEB 2.5mg/kg');

% concatenate results
KSEB_25 = cat(1, CCK37_KSEB_25_M, CCK43_KSEB_25_M, CCK49_KSEB_25_M, CCK25_KSEB_25_M, CCK30_KSEB_25_M);

%% collect KSEB_5 data
[CCK37_KSEB_5_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'KSEB 5mg/kg');
[CCK43_KSEB_5_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'KSEB 5mg/kg');
[CCK49_KSEB_5_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'KSEB 5mg/kg');
[CCK25_KSEB_5_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'KSEB 5mg/kg');
[CCK30_KSEB_5_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'KSEB 5mg/kg');

% concatenate results
KSEB_5 = cat(1, CCK37_KSEB_5_M, CCK43_KSEB_5_M, CCK49_KSEB_5_M, CCK25_KSEB_5_M, CCK30_KSEB_5_M);

%% collect MPIII_1 data
[CCK37_MPIII_1_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'MP-III 1mg/kg');
[CCK43_MPIII_1_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'MP-III 1mg/kg');
[CCK49_MPIII_1_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'MP-III 1mg/kg');
[CCK25_MPIII_1_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'MP-III 1mg/kg');
[CCK30_MPIII_1_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'MP-III 1mg/kg');

% concatenate results
MPIII_1 = cat(1, CCK37_MPIII_1_M, CCK43_MPIII_1_M, CCK49_MPIII_1_M, CCK25_MPIII_1_M, CCK30_MPIII_1_M);

%% collect MPIII_3 data
[CCK37_MPIII_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', 'MP-III 3mg/kg');
[CCK43_MPIII_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', 'MP-III 3mg/kg');
[CCK49_MPIII_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', 'MP-III 3mg/kg');
[CCK25_MPIII_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', 'MP-III 3mg/kg');
[CCK30_MPIII_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', 'MP-III 3mg/kg');

% concatenate results
MPIII_3 = cat(1, CCK37_MPIII_3_M, CCK43_MPIII_3_M, CCK49_MPIII_3_M, CCK25_MPIII_3_M, CCK30_MPIII_3_M);

%% collect R_CPP_3 data
[CCK37_R_CPP_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_37', '(R)-CPP 3mg/kg');
[CCK43_R_CPP_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_43', '(R)-CPP 3mg/kg');
[CCK49_R_CPP_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F6_49', '(R)-CPP 3mg/kg');
[CCK25_R_CPP_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_25', '(R)-CPP 3mg/kg');
[CCK30_R_CPP_3_M] = RM_Mean_Prism(Data_Summary, 'CCK_F7_30', '(R)-CPP 3mg/kg');

% concatenate results
R_CPP_3 = cat(1, CCK37_R_CPP_3_M, CCK43_R_CPP_3_M, CCK49_R_CPP_3_M, CCK25_R_CPP_3_M, CCK30_R_CPP_3_M);

%% Now, make summary table

RM_Summary_Table = table(animalNames, genotype, saline, altered_contexts, etom_4, etom_7, midaz_025, midaz_075,...
    midaz_125, KSEB_25, KSEB_5, MPIII_1, MPIII_3, R_CPP_3);

%% Export table

[ds, ~] = getdsap;
path = fullfile(ds.metadataPath, 'Prism excel data', 'RM.xlsx');

if ~exist((fullfile(ds.metadataPath, 'Prism excel data')), 'dir')
    mkdir(fullfile(ds.metadataPath, 'Prism excel data'));
end
writetable(RM_Summary_Table, path);

end